home *** CD-ROM | disk | FTP | other *** search
/ Totally for Newton 10 / PDA10.toast / mac / Packages / Programming / 2.x / TapBar SDK 1.0 / Sample 5 / Sample 5.def next >
Encoding:
Text File  |  1996-06-01  |  705 b   |  37 lines  |  [TEXT/R*ch]
  1. /*====================================================================
  2.     Sample 5.def    ©1996 Yosuke "Basuke" Suzuki.
  3.     
  4.     Simple button based on tbPopupButton. 
  5.     It displays simple popup when tapping, 
  6.     and display another popup when holding the pen on it.
  7.   ====================================================================*/
  8.  
  9. partData := {
  10.     //
  11.     // Actual button is defined in afterscript of "Sample 5.t"
  12.     //
  13. };
  14.  
  15.  
  16. InstallScript := func(partFrame,removeFrame)
  17. begin
  18.     
  19.     //
  20.     //    register button
  21.     //
  22.     
  23.     call kRegTapBarButtonFunc with (kAppSymbol, partFrame.partData.button);
  24. end;
  25.  
  26.  
  27. RemoveScript := func(removeFrame)
  28. begin
  29.     
  30.     //
  31.     //    unregister button
  32.     //
  33.     
  34.     call kUnRegTapBarButtonFunc with (kAppSymbol);
  35. end;
  36.  
  37.